/// Replication file for "Kostadinova, Petia. "Influential News: Impact of Print Media Reports on the Fulfillment of ///
///Election Promises, prepared for Political Communication, 2018

/// files: Pol_Comm_BU_all.dta ///
/// Pol_Comm_BU_govt.dta ///
/// Pol_Comm_BU_coal.dta///
/// Pol_Comm_BU_oppsn.dta

use Pol_Comm_BU_all.dta for first model in Table 2 (main text); si Table 1; si Table 2; si Table 3; si Table 5
use Pol_Comm_BU_govt.dta for second model in Table 2 (main text); si Table 1; si Table 2; si Table 3; si Table 5
use Pol_Comm_BU_coal.dta for third model in Table 2 (main text); si Table 1; si Table 2; si Table 3; si Table 5
use Pol_Comm_BU_oppsn.dta for models on opposition parties in Appendix (si Table 4)


///Table 2 (e^b coefficients) first model - all parties; second model - all government parties; ///
/// third model - all coalition parties
logit fulfil2 multi govpartmult econpolmult mainmult govt econpolicy main sq agreeothers ///
growth term numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 multi coalmult econpolmult coal econpolicy sq chex agreeothers growth term ///
numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 multi ideolmult ideol econpolicy sq chex agreeothers numberofpledges [iweight=year], ///
vce(cluster partyandyear) or

///Figure 1, estimated coefficients across all four models - main take away 
coefplot model1 model2 model3, order(multi govpartmult coalmult ideolmulti govtparty coal ideol) ///
drop (econpolicy econpolmult main mainmult chex agreeothers agreegovt sq numberofpledges ///
constant growth term _cons)

///Predicted probabilities following model 1 in Table 2, discussed in text no figure
prvalue, x(multi=0 govpartmult=0 econpolmult=0 mainmult=0 govtparty= 0 econpolicy=0 main =0 sq=0 term=0 ///
agreeothers=0) 
prvalue, x(multi=1 govpartmult=0 econpolmult=0 mainmult=0 govtparty= 0 econpolicy=0 main =0 sq=0 term=0 ///
agreeothers=0) 

///Predicted probabilities following model 2 in Table 2, discussed in text no figure
prvalue, x(coalmult=0 coal=0 multi=0 econpolmult = 0 econpolicy= 0 agreeothers = 0 sq=0 term=0) 
prvalue, x(coalmult=1 coal=1 multi=1 econpolmult = 0 econpolicy= 0 agreeothers = 0 sq=0 term=0) 

///Predicted probabilities following model 3 in Table 2, discussed in text no figure
prvalue, x(multi = 1 ideolmult=0.728535 ideol = 0.728535 econpolicy=0 sq=0 chex = 0 agreeothers=0)
prvalue, x(multi = 1 ideolmult=1.180632 ideol = 1.180632 econpolicy=0 sq=0 chex = 0  agreeothers=0)
prvalue, x(multi = 1 ideolmult=1.413445 ideol = 1.413445 econpolicy=0 sq=0 chex = 0  agreeothers=0)

///Appendix si Table 1 (e^b coefficients) first model - all parties; second model - all government parties; ///
/// third model - all coalition parties
logit fulfil2 multi govpartmult econpolmult mainmult govt econpolicy main chex ministry sq agreeothers ///
growth term numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 multi coalmult econpolmult coal econpolicy chex ministry sq agreeothers growth term ///
numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 multi ideolmult ideol econpolicy chex ministry sq agreeothers numberofpledges ///
[iweight=year], vce(cluster partyandyear) or

///Appendix si Table 2 (e^b coefficients) first model - all parties; second model - all government parties; ///
/// third model - all coalition parties
logit fulfil2 rep govpartrep econpolrep mainrep govt econpolicy main chex ministry sq agreeothers growth ///
term numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 multi coalrep econpolrep coal econpolicy chex ministry sq agreeothers growth term ///
numberofpledges [iweight=year], vce(cluster partyandyear) or
logit fulfil2 rep ideolrep ideol econpolicy chex ministry sq agreeothers numberofpledges [iweight=year], ///
vce(cluster partyandyear) or

///Appendix si Table 3 (e^b coefficients) first model - all parties; second model - all government parties; ///
/// third model - all coalition parties
logit fulfil2 multi govpartmult econpolmult mainmult govt econpolicy main chex ministry sq agreeothers ///
growth term numberofpledges y1994 y1997 y2001 y2005, vce(cluster partyandyear) or
logit fulfil2 multi coalmult econpolmult coal econpolicy chex ministry sq agreeothers growth term ///
numberofpledges y1994 y1997 y2001 y2005, vce(cluster partyandyear) or
logit fulfil2 multi ideolmult ideol econpolicy chex ministry sq agreeothers numberofpledges y1994 y1997///
y2001 y2005, vce(cluster partyandyear) or

///Appendix si Table 4 (e^b coefficients) opposition parties only; first model - multiple reports in media;///
/// second model - Reported one; third model - multiple reports with yearly controls
logit fulfil2 multi econpolmult econpolicy sq agreegovt growth term numberofpledges [iweight=year], ///
vce(cluster partyandyear) or
logit fulfil2 rep econpolrep econpolicy sq agreegovt growth term numberofpledges [iweight=year], ///
vce(cluster partyandyear) or
logit fulfil2 multi econpolmult econpolicy sq agreegovt growth term numberofpledges y1994 y1997 y2001 ///
y2005, vce(cluster partyandyear) or

///Appendix si Table 5 without Econ Policy and Main Contenders (e^b coefficients) first model - all parties; second model - all government parties; ///
/// third model - all coalition parties
logit fulfil2 multi govpartmult govt sq agreeothers growth term numberofpledges [iweight=year], ///
vce(cluster partyandyear) or
logit fulfil2 multi coalmult coal sq chex agreeothers growth term numberofpledges [iweight=year], ///
vce(cluster partyandyear) or
logit fulfil2 multi ideolmult ideol sq chex agreeothers numberofpledges [iweight=year], ///
vce(cluster partyandyear) or


